home *** CD-ROM | disk | FTP | other *** search
/ The Mac 13 / the-mac-13.iso / On The Rom / 100 Best Mac CD-ROMs Selection / The Treasure Hunt / thpb.Dxr / 00182.ls < prev    next >
Encoding:
Text File  |  1994-09-16  |  255 b   |  13 lines
  1. on mouseUp
  2.   global colours
  3.   set colours to intarray(mnew)
  4.   repeat with l = 21 to 25
  5.     set t to the foreColor of sprite l
  6.     puppetSprite(l, 0)
  7.     colours(mput, l - 20, t)
  8.   end repeat
  9.   puppetSound(0)
  10.   puppetTransition(23)
  11.   go("monsteranim")
  12. end
  13.